sHelp
                                     WL.PAT
     i   2
   adm.link
   demo.main
     mri.drc.allergies
     mri.drc.conditions
     mri.drc.customer.defined.query
     mri.drc.employer.data
     mri.drc.insurances
       mri.drc.insurance.queries
     zcus.uk.pt.addr.change
     zcus.uk.pt.reg.gp.change
   mri.main
     wl.pat.other.names
     mri.pat.visits
   wl.pat.nur.link
   oe.link
   ref.cis.ss.procedures
   referral.main
     referral letters
       ref.current.outcomes
       ref.cis.episodes
         ref.cis.complications.history
           ref.cis.complications.hist.cmp
         ref.cis.complications
         ref.cis.diagnosis.dis.other
         ref.cis.diag.dis.main.history
           ref.cis.diag.dis.other.history
         ref.cis.final.diag.history
         ref.cis.diagnosis.working.oth
         ref.cis.diag.work.main.history
           ref.cis.diag.work.other.hist
         ref.cis.episodes.history
         ref.cis.investigation
         ref.cis.outcomes
         ref.cis.problem.main.history
           ref.cis.problem.other.history
         ref.cis.problems.other
       wl.referral.clinic
       referral.events
       wl.sch.consultant.action
       web.audit.trail.data
       wl.tci.date.data
       wl.operation.web.reasons
       wl.op.web.comments
       wl.operations.secondary
       wl.suspend.dates
       wl.theatre.comments
   sch.link
   search
   wl.link
   zcus.uk.reg.gp.xfer

 Ì     i   2
adm.link    (adm.link) 
/.adm

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 adm.ampersand               10 FREE     L                 /.adm|4                                                     
 adm.colon                   10 FREE     L                 /.adm|6                                                     
 adm.dollar                  10 FREE     L                 /.adm|2                                                     
 adm.per.cent                10 FREE     L                 /.adm|0                                                     
 mri.old.ampersand           10 FREE     L                 /.adm|5                                                     
 mri.old.colon               10 FREE     L                 /.adm|7                                                     
 mri.old.dollar              10 FREE     L                 /.adm|3                                                     
 mri.old.per.cent            10 FREE     L                 /.adm|1                                                     
 Ì     i   2
demo.main    (demo.main) 
[mri.demo.urn]
?AA[ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mri.demo.urn                25 URN      L                 ea                                                          
 adm.acct                    30 FREE     L                                                                             
 adm.acct.number             12 FREE     L                 ?AA[ea]|0                                                   
 adm.admit.date               8 DATE     L                 ?AA[ea]|13                                                  
 adm.admit.time               4 HHMM     L                 ?AA[ea]|14                                                  
 adm.age                      7 AGE      L                 ?AA[ea]|8                                                   
 adm.bed                      3 FREE     L                 ?AA[ea]|11                                                  
 adm.birthdate                8 BDATE    L                 ?AA[ea]|5                                                   
 adm.computed.birthdate       8 BDATE    L                 ?AA[ea]|6                                                   
 adm.current.age              7 FREE     L                 VAL=(%Z.age(@ADM.PAT.computed.birthdate))                   
 adm.deleted                  1 YN       L                 ?AA[ea]|19                                                  
 adm.discharge.date           8 DATE     L                 ?AA[ea]|17                                                  
 adm.discharge.time           4 HHMM     L                 ?AA[ea]|18                                                  
 adm.first.name              30 FREE     L                                                                             
 adm.id                      30 URN      L  ADM.PAT        VAL=(@acct.number_"  "_@name:0S)                        
 adm.inpatient.location      10 FREE     L  MIS.LOCN.DICT  ?AA[ea]|12                                              
 adm.last.name               30 FREE     L                                                                             
 adm.location                10 FREE     L  MIS.LOCN.DICT  ?AA[ea]|12                                              
 adm.mri.drc.patient         30 FREE     L                                                                             
 adm.mri.urn                 25 URN      L  MRI.PAT        ?AA[ea]|4                                               
 adm.name                    30 FREE     L                 ?AA[ea]|1                                                   
 adm.name.w.vip.flag         30 FREE     L                 VAL=(IF{@ADM.PAT.vip="Y" @ADM.PARAM.vip.flag}_@ADM.PAT      
                                                           VAL=.name)                                                  
 adm.new.acct                30 FREE     L                                                                             
 adm.outpatient.location     10 FREE     L  MIS.LOCN.DICT  ?AA[ea]|12                                              
 adm.room                    10 FREE     L  MIS.ROOM.DICT  ?AA[ea]|10                                              
 adm.service                 10 FREE     L  MIS.SVC.DICT   ?AA[ea]|9                                               
 adm.service.date             8 DATE     L                 ?AA[ea]|15                                                  
 adm.service.name            30 FREE     L                 VAL=@MIS.SVC.DICT.name[@service]                            
 adm.service.time             4 HHMM     L                 ?AA[ea]|16                                                  
 adm.sex                      1 CHOICE   L                 ?AA[ea]|7                                                   
 adm.status                   8 FREE     L                 ?AA[ea]|2                                                   
 adm.unit.number             10 FREE     L                 ?AA[ea]|3                                                   
 adm.unit.number.canada      10 FREE     L                 ?AA[ea]|3                                                   
 adm.unit.number.pre.er      10 FREE     L                 ?AA[ea]|3                                                   
 adm.unit.number.short       10 FREE     L                 ?AA[ea]|3                                                   
 adm.urn                     30 URN      L                                                                             
 admit.doctor                10 FREE     L  MIS.DOC.DICT   ?AA[ea]DR|0                                             
 admit.doctor.name           30 FREE     L                 VAL=@MIS.DOC.DICT.name[@WL.PAT.admit.doctor]                
 affiliation                 30 FREE     L                 ?AA[ea]A|1                                                  
 age.group                    2 FREE     L                 ?AA[ea]CND|5                                                
 attend.doctor               10 FREE     L  MIS.DOC.DICT   ?AA[ea]DR|1                                             
 attend.doctor.name          30 FREE     L                 VAL=@MIS.DOC.DICT.name[@WL.PAT.attend.doctor]               
 cd.screen                   15 FREE     L  MIS.SCREEN     ?AA[ea]CD|0                                             
 ck.admit.priv                1 YN       L                 VAL=IF{@MIS.PARAM.multi.fac="Y" @MIS.DOC.DICT.facility      
                                                           VAL=.admit.priv[@.new,@.facility];@MIS.DOC.DICT.admit.      
                                                           VAL=priv[@.new]}                                            
 edit.or.switch.guar.num      1 CHOICE   L                 ?AA[ea]A|8                                                  
 emp.city                    30 FREE     L                 ?AA[ea]E|4                                                  
 emp.phone                   18 PHONE    L                 ?AA[ea]E|7                                                  
 emp.postal.code             10 ZIP.POST L  MIS.ZIP        ?AA[ea]E|6                                              
 emp.province                 2 FREE     L                 ?AA[ea]E|5                                                  
 emp.state                   20 FREE     L                 ?AA[ea]E|5                                                  
 emp.street                  30 FREE     L                 ?AA[ea]E|2                                                  
 emp.street2                 30 FREE     L                 ?AA[ea]E|3                                                  
 emp.zip                     10 ZIP.POST L  MIS.ZIP        ?AA[ea]E|6                                              
 employer                    10 FREE     L  MIS.EMPLR.DICT ?AA[ea]E|0                                              
 er.doctor                   10 FREE     L  MIS.DOC.DICT   ?AA[ea]DR|4                                             
 er.doctor.name              30 FREE     L                 VAL=@MIS.DOC.DICT.name[@WL.PAT.er.doctor]                   
 family.doctor               10 FREE     L  MIS.DOC.DICT   ?AA[ea]DR|3                                             
 family.doctor.name          30 FREE     L                 VAL=@MIS.DOC.DICT.name[@WL.PAT.family.doctor]               
 financial.class             10 FREE     L  MIS.FIN.CLASS  ?AA[ea]A|3                                              
 guar.city                   20 FREE     L                 ?AA[ea]G|4                                                  
 guar.emp.city               30 FREE     L                 ?AA[ea]GE|4                                                 
 guar.emp.phone              18 PHONE    L                 ?AA[ea]GE|7                                                 
 guar.emp.postal.code        10 ZIP.POST L  MIS.ZIP        ?AA[ea]GE|6                                             
 guar.emp.province            2 FREE     L                 ?AA[ea]GE|5                                                 
 guar.emp.state              20 FREE     L                 ?AA[ea]GE|5                                                 
 guar.emp.street             30 FREE     L                 ?AA[ea]GE|2                                                 
 guar.emp.street2            30 FREE     L                 ?AA[ea]GE|3                                                 
 guar.emp.zip                10 ZIP.POST L  MIS.ZIP        ?AA[ea]GE|6                                             
 guar.employer               10 FREE     L  MIS.EMPLR.DICT ?AA[ea]GE|0                                             
 guar.home.phone             18 PHONE    L                 ?AA[ea]G|7                                                  
 guar.name                   30 FREE     L                 ?AA[ea]G|0                                                  
 guar.name.display.only      30 FREE     L                 ?AA[ea]G|0                                                  
 guar.name.pre.er            30 FREE     L                 ?AA[ea]G|0                                                  
 guar.occupation             20 FREE     L                 ?AA[ea]GE|1                                                 
 guar.postal.code            10 ZIP.POST L  MIS.ZIP        ?AA[ea]G|6                                              
 guar.province                2 FREE     L                 ?AA[ea]G|5                                                  
 guar.pt.relationship        10 FREE     L  MIS.RELAT.DICT ?AA[ea]G|1                                              
 guar.soc.sec.number         12 FREE     L                 ?AA[ea]G|8                                                  
 guar.state                  20 FREE     L                 ?AA[ea]G|5                                                  
 guar.street                 30 FREE     L                 ?AA[ea]G|2                                                  
 guar.street.display.only    30 FREE     L                 ?AA[ea]G|2                                                  
 guar.street2                30 FREE     L                 ?AA[ea]G|3                                                  
 guar.zip                    10 ZIP.POST L  MIS.ZIP        ?AA[ea]G|6                                              
 hc.subscriber.inits          3 FREE     L                 ?AA[ea]CND|2                                                
 hc.subscriber.relation      10 FREE     L  MIS.RELAT.DICT ?AA[ea]CND|3                                            
 health.care.number          14 NHS.NUM  L                 ?AA[ea]CND|1                                                
 language                    10 FREE     L  MIS.CAN.LANG   ?AA[ea]CND|0                                            
 marital.status              10 FREE     L  MIS.MAR.STATUS ?AA[ea]A|4                                              
 nok.city                    20 FREE     L                 ?AA[ea]NK|3                                                 
 nok.home.phone              18 PHONE    L                 ?AA[ea]NK|6                                                 
 nok.name                    30 FREE     L                 ?AA[ea]NK|0                                                 
 nok.postal.code             10 ZIP.POST L  MIS.ZIP        ?AA[ea]NK|5                                             
 nok.province                 2 FREE     L                 ?AA[ea]NK|4                                                 
 nok.relationship            10 FREE     L  MIS.RELAT.DICT ?AA[ea]NK|8                                             
 nok.state                   20 FREE     L                 ?AA[ea]NK|4                                                 
 nok.street                  30 FREE     L                 ?AA[ea]NK|1                                                 
 nok.street2                 30 FREE     L                 ?AA[ea]NK|2                                                 
 nok.work.phone              18 PHONE    L                 ?AA[ea]NK|7                                                 
 nok.zip                     10 ZIP.POST L  MIS.ZIP        ?AA[ea]NK|5                                             
 notify.city                 20 FREE     L                 ?AA[ea]PN|3                                                 
 notify.home.phone           18 PHONE    L                 ?AA[ea]PN|6                                                 
 notify.name                 30 FREE     L                 ?AA[ea]PN|0                                                 
 notify.postal.code          10 ZIP.POST L  MIS.ZIP        ?AA[ea]PN|5                                             
 notify.province              2 FREE     L                 ?AA[ea]PN|4                                                 
 notify.relationship         10 FREE     L  MIS.RELAT.DICT ?AA[ea]PN|8                                             
 notify.state                20 FREE     L                 ?AA[ea]PN|4                                                 
 notify.street               30 FREE     L                 ?AA[ea]PN|1                                                 
 notify.street2              30 FREE     L                 ?AA[ea]PN|2                                                 
 notify.work.phone           18 PHONE    L                 ?AA[ea]PN|7                                                 
 notify.zip                  10 ZIP.POST L  MIS.ZIP        ?AA[ea]PN|5                                             
 occupation                  20 FREE     L                 ?AA[ea]E|1                                                  
 old.health.care.number      14 FREE     L                 ?AA[ea]CND|6                                                
 other.doctor                10 FREE     L  MIS.DOC.DICT   ?AA[ea]DR|2                                             
 other.doctor.name           30 FREE     L                 VAL=@MIS.DOC.DICT.name[@WL.PAT.other.doctor]                
 pat.city                    20 FREE     L                 ?AA[ea]AD|2                                                 
 pat.home.phone              18 PHONE    L                 ?AA[ea]AD|5                                                 
 pat.other.phone             18 PHONE    L                 ?AA[ea]AD|6                                                 
 pat.postal.code             10 ZIP.POST L  MIS.ZIP        ?AA[ea]AD|4                                             
 pat.province                30 FREE     L                 ?AA[ea]AD|3                                                 
 pat.state                   20 FREE     L                 ?AA[ea]AD|3                                                 
 pat.street                  30 FREE     L                 ?AA[ea]AD|0                                                 
 pat.street2                 30 FREE     L                 ?AA[ea]AD|1                                                 
 pat.zip                     10 ZIP.POST L  MIS.ZIP        ?AA[ea]AD|4                                             
 print.cd.screen              0 FREE     L                 VAL=IF{@cd.screen %MIS.SCREEN.print(@cd.screen,^@custo      
                                                           VAL=mer.defined.fields,"",0)}                               
 print.cd.screen.verbatim     0 FREE     L                 VAL=IF{@cd.screen %MIS.SCREEN.print(@cd.screen,^@custo      
                                                           VAL=mer.defined.fields,1,0)}                                
 race                        10 FREE     L  MIS.RACE.DICT  ?AA[ea]A|5                                              
 religion                    10 FREE     L  ADM.REL        ?AA[ea]A|0                                              
 religion.name               30 FREE     L                 VAL=@ADM.REL.name[@religion]                                
 res.for.pay.code             1 FREE     L                 VAL=@MIS.FIN.CLASS.resp.for.pay.code[@ADM.PAT.financia      
                                                           VAL=l.class]                                                
 residence.code              10 FREE     L  MIS.CNTY.DICT  ?AA[ea]CND|4                                            
 smoke.object.neither         1 CHOICE   L                 ?AA[ea]A|6                                                  
 soc.sec.number              12 FREE     L                 ?AA[ea]A|2                                                  
 special.pgm.indicator       10 FREE     L  MIS.SPEC.PROG  ?AA[ea]A|7                                              
 vip                          1 YN       L                 ?AA[ea]A|9                                                  
 vip.comment                 50 FREE     L                 ?AA[ea]A|10                                                 
 zcus.chronic.sick.disable    1 YN       L                 ?AA[ea]ZCUSDUK|7                                            
 zcus.do.not.use.4            0 FREE     L                 ?AA[ea]ZCUSDUK|4                                            
 zcus.model.box.number       10 FREE     L                 ?AA[ea]ZCUSDUK|2                                            
 zcus.nok.comment            30 FREE     L                 ?AA[ea]ZCUSDUK|5                                            
 zcus.nok.title              10 FREE     L                 ?AA[ea]ZCUSDUK|3                                            
 zcus.notify.comment         30 FREE     L                 ?AA[ea]ZCUSDUK|6                                            
 zcus.overseas.visitor        1 YN       L                 ?AA[ea]ZCUSDUK|0                                            
 zcus.temp.resident           1 YN       L                 ?AA[ea]ZCUSDUK|1                                            
 zcus.uk.pcg                 10 FREE     L  MIS.ZCUS.PCG   ?AA[ea]ZCUSDUK|8                                        
 Ì      i   2
mri.drc.allergies    (allergies) 
[mri.demo.urn, allergy.num]
?AA[ea]ALG[aal]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 allergy.num                  1 PINT     R                 aal                                                         
 allergy                     15 FREE     L                 ?AA[ea]ALG[aal]                                             
 Ì      i   2
mri.drc.conditions    (conditions) 
[mri.demo.urn, cond.seq.no]
?AA[ea]C[aaCN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cond.seq.no                  1 PINT     R                 aaCN                                                        
 condition                   10 FREE     L  MIS.COND       ?AA[ea]C[aaCN]|0                                        
 Ì      i   2
mri.drc.customer.defined.query    (customer.defined.queries) 
[mri.demo.urn, cd.query]
?AA[ea]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cd.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 cd.response                 75 QRY.RESP L                 ?AA[ea]CD[ggv]|0                                            
 Ì      i   2
mri.drc.employer.data    (emp.info.data) 
[mri.demo.urn, eid.seq.no]
?AA[ea]EI[aaEN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 eid.seq.no                   1 PINT     R                 aaEN                                                        
 eid                         10 FREE     L  MIS.EID        ?AA[ea]EI[aaEN]|0                                       
 eid.employee.id             11 FREE     L                 ?AA[ea]EI[aaEN]|4                                           
 eid.employer.loc            30 FREE     L                 ?AA[ea]EI[aaEN]|3                                           
 eid.employer.name           10 FREE     L  MIS.EMPLR.DICT ?AA[ea]EI[aaEN]|2                                       
 eid.status                  10 FREE     L  MIS.EMP.STATUS ?AA[ea]EI[aaEN]|1                                       
 Ì      i   2
mri.drc.insurances    (insurances) 
[mri.demo.urn, insurance]
?AA[ea]I[ggm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 insurance                   10 FREE     L  MIS.INS.DICT   ggm                                                     
 insurance.city              20 FREE     L                 ?AA[ea]I[ggm]|1                                             
 insurance.other.name        30 FREE     L                 ?AA[ea]I[ggm]|5                                             
 insurance.phone             30 PHONE    L                 ?AA[ea]I[ggm]|4                                             
 insurance.postal.code       10 ZIP.POST L  MIS.ZIP        ?AA[ea]I[ggm]|3                                         
 insurance.province           2 FREE     L                 ?AA[ea]I[ggm]|2                                             
 insurance.state             20 FREE     L                 ?AA[ea]I[ggm]|2                                             
 insurance.street            30 FREE     L                 ?AA[ea]I[ggm]|0                                             
 insurance.zip               10 ZIP.POST L  MIS.ZIP        ?AA[ea]I[ggm]|3                                         
 Ì      i   2
mri.drc.insurance.queries    (ins.queries) 
[mri.demo.urn,insurance, query.seq.no]
?AA[ea]I[ggm]Q[ggmQ]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 query.seq.no                 2 PINT     R                 ggmQ                                                        
 ins.query                   60 FREE     L                 VAL=@MIS.QUERY.text[@ADM.PAT.ins.query.mnemonic]            
 ins.query.and.answer       136 FREE     L                 VAL=(@ins.query_" "_@ins.query.answer)                      
 ins.query.answer            75 QRY.RESP L                 ?AA[ea]I[ggm]Q[ggmQ]|1                                      
 ins.query.color.screen      75 FREE     L                 VAL=(@Set.attr(@Z.color.labels1)_(@ins.query:75L)_@Set      
                                                           VAL=.attr(@Z.color.data2))                                  
 ins.query.count              2 INT      R                 VAL=(-@ADM.PAT.ins.queries[ADM.PAT.urn,insurance,""]+0      
                                                           VAL=)                                                       
 ins.query.mnemonic          10 FREE     L  MIS.QUERY      ?AA[ea]I[ggm]Q[ggmQ]|0                                  
 ins.query.screen            60 FREE     L                 VAL=IF{@ins.query @Z.start.background_@Z.normal.backgr      
                                                           VAL=ound.half_@ins.query_@Z.start.foreground_@Z.normal      
                                                           VAL=.foreground.full}                                       
 Ì      i   2
zcus.uk.pt.addr.change    (zcus.uk.pt.addr.change) 
[mri.demo.urn, zcus.uk.pt.addr.count]
?AA[ea]ZCUSADX[zpad]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.uk.pt.addr.count        3 FREE     L                 zpad                                                        
 zcus.uk.pt.addr.chg.date     8 DATE     L                 ?AA[ea]ZCUSADX[zpad]|9                                      
 zcus.uk.pt.addr.cty         10 FREE     L                 ?AA[ea]ZCUSADX[zpad]|3                                      
 zcus.uk.pt.addr.date         8 DATE     L                 ?AA[ea]ZCUSADX[zpad]|5                                      
 zcus.uk.pt.addr.district    10 FREE     L                 ?AA[ea]ZCUSADX[zpad]|8                                      
 zcus.uk.pt.addr.local       20 FREE     L                 ?AA[ea]ZCUSADX[zpad]|1                                      
 zcus.uk.pt.addr.pcode       10 ZIP.POST L  MIS.ZIP        ?AA[ea]ZCUSADX[zpad]|4                                  
 zcus.uk.pt.addr.street      30 FREE     L                 ?AA[ea]ZCUSADX[zpad]|0                                      
 zcus.uk.pt.addr.town        20 FREE     L                 ?AA[ea]ZCUSADX[zpad]|2                                      
 zcus.uk.pt.addr.type         1 FREE     L                 ?AA[ea]ZCUSADX[zpad]|7                                      
 zcus.uk.pt.addr.user        10 FREE     L  MIS.USER       ?AA[ea]ZCUSADX[zpad]|6                                  
 Ì      i   2
zcus.uk.pt.reg.gp.change    (zcus.uk.pt.reg.gp.change) 
[mri.demo.urn, zcus.uk.pt.reg.gp.count]
?AA[ea]ZCUSGPX[zrgp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.uk.pt.reg.gp.count      3 FREE     L                 zrgp                                                        
 zcus.uk.pt.reg.gp.chg.dt     8 DATE     L                 ?AA[ea]ZCUSGPX[zrgp]|4                                      
 zcus.uk.pt.reg.gp.date       8 DATE     L                 ?AA[ea]ZCUSGPX[zrgp]|1                                      
 zcus.uk.pt.reg.gp.id        10 FREE     L  MIS.DOC.DICT   ?AA[ea]ZCUSGPX[zrgp]|0                                  
 zcus.uk.pt.reg.gp.type       1 FREE     L                 ?AA[ea]ZCUSGPX[zrgp]|3                                      
 zcus.uk.pt.reg.gp.user      10 FREE     L  MIS.USER       ?AA[ea]ZCUSGPX[zrgp]|2                                  
 Ì     i   2
mri.main    (main) 
[medical.record]
?EA[ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 medical.record              25 URN      L                 ea                                                          
 ..not.in.use.17              0 FREE     L                 ?EA[ea]|17                                                  
 ..not.in.use.6               0 FREE     L                 ?EA[ea]|6                                                   
 ..not.in.use.7               0 FREE     L                 ?EA[ea]|7                                                   
 ..not.in.use.8               0 FREE     L                 ?EA[ea]|8                                                   
 active                       1 YN       L                 ?EA[ea]|2                                                   
 age                          7 AGE      R                 ?EA[ea]|5                                                   
 bad.debt                     1 YN       L                 ?EA[ea]|14                                                  
 birthdate                    8 BDATE    L                 ?EA[ea]|3                                                   
 computed.birthdate           8 BDATE    L                 ?EA[ea]|11                                                  
 current.age                  7 FREE     L                 VAL=%Z.age(@MRI.PAT.computed.birthdate)                     
 demo.recall.date             8 DATE     L                 ?EA[ea]|12                                                  
 discharge.disposition       10 FREE     L  MIS.DIS.DICT   ?EA[ea]|9                                               
 ee.setup                     0 FREE     L                 VAL=IF{@init.visits.ee.format,@init.unit.nums.ee.forma      
                                                           VAL=t}                                                      
 ee.setup.demo.recall         0 FREE     L                 VAL=IF{%WL.PAT.ee.mri.recall("")}                           
 facility                    10 FREE     L  MIS.FACILITY                                                           
 first.name                  25 FREE     L                                                                             
 id                          30 URN      L                 VAL=@WL.PAT.unit.number                                     
 include.no.unit.number       1 YN       L                 VAL=IF{c.yn="Y";@px.unit.number "Y"}                        
 init.visits.ee.format        0 FREE     L                 VAL=%MRI.PAT.ee.build.visits.ee.format("",1)                
 last.activity.date           8 DATE     L                 ?EA[ea]|10                                                  
 last.name                   25 FREE     L                                                                             
 maiden.other.name           30 NAME     L                 ?EA[ea]|16                                                  
 merged.to                   25 URN      L  MRI.PAT        ?EA[ea]|13                                              
 mf.unit.number              12 FREE     L                 ?EA[ea]|0                                                   
 missing.data                 0 FREE     L                 VAL=(@name="DOE,JOHN")!(@name="DOE,JANE")!('@name)!('@      
                                                           VAL=sex)!('@birthdate)!('@mothers.first.name)               
 mothers.first.name          20 FREE     L                 ?EA[ea]|15                                                  
 name                        30 NAME     L                 ?EA[ea]|1                                                   
 new.patient                 30 FREE     L                                                                             
 new.patient.for.prefix      30 FREE     L                                                                             
 old.patient                 30 FREE     L                                                                             
 old.patient.for.prefix      30 FREE     L                                                                             
 sex                          1 CHOICE   L                 ?EA[ea]|4                                                   
 soundexed.name              30 NAME     L                                                                             
 try.number                   1 PINT     R                                                                             
 unit.number                 10 FREE     L                 VAL=@MRI.PAT.px.unit.number[MRI.PAT.urn,@.mri.pfx]          
 unit.number.tdo             10 FREE     L                 VAL=%MRI.PAT.unit.number.tdo(@unit.number)                  
 urn                         25 URN      L  MRI.PAT                                                                
 zcus.blood.type             10 FREE     L                 ?EA[ea]ZCUSMUK|4                                            
 zcus.creation.facility      10 FREE     L  MIS.FACILITY   ?EA[ea]ZCUSMUK|2                                        
 zcus.death.date              8 DATE     L                 ?EA[ea]ZCUSMUK|1                                            
 zcus.notes.created          10 FREE     L                 ?EA[ea]ZCUSMUK|3                                            
 zcus.number.and.name        44 FREE     L                 VAL=@unit.number_"  "_@name                                 
 zcus.title                  10 FREE     L                 ?EA[ea]ZCUSMUK|0                                            
 Ì      i   2
wl.pat.other.names    (other.names) 
[medical.record, other.name]
?EA[ea]ON[eaON]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 other.name                  30 NAME     L                 eaON                                                        
 Ì      i   2
mri.pat.visits    (visits) 
[medical.record, visit.subscript]
?EA[ea]VS[eaV]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 visit.subscript              0 FREE     L                 eaV                                                         
 visit.acct.number           12 FREE     L                 VAL=(visit.subscript#"2|")                                  
 visit.admit.urn             30 URN      L  ADM.PAT        ?EA[ea]VS[eaV]|4                                        
 visit.date                   8 DATE     L                 VAL=(99999999-(visit.subscript#"0|"$8)<99999999)         
 visit.dis.or.ser.date        8 DATE     L                 VAL=IF{@visit.discharge.date;@visit.date}                   
 visit.discharge.date         8 DATE     L                 ?EA[ea]VS[eaV]|2                                            
 visit.discharge.dispo       10 FREE     L  MIS.DIS.DICT   ?EA[ea]VS[eaV]|3                                        
 visit.doctor                10 FREE     L  MIS.DOC.DICT   ?EA[ea]VS[eaV]|1                                        
 visit.location              10 FREE     L  MIS.LOCN.DICT  ?EA[ea]VS[eaV]|0                                        
 visit.time                   4 HHMM     L                 VAL=(9999-(visit.subscript#"0|"%8)<9999)                 
 visit.type                   3 CHOICE   L                 VAL=(visit.subscript#"1|")                                  
 Ì     i   2
oe.link    (oe.link) 
/.oe

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 oe.ampersand                10 FREE     L                 /.oe|2                                                      
 oe.colon                    10 FREE     L                 /.oe|3                                                      
 oe.dollar                   10 FREE     L                 /.oe|1                                                      
 oe.per.cent                 10 FREE     L                 /.oe|0                                                      
 Ì     i   2
ref.cis.ss.procedures    (ref.cis.ss.procs) 
[ref.cis.ss.ctr]
/SS.TEMP[ssctr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.ss.ctr               3 URN      L                 ssctr                                                       
 ref.cis.ss.proc             40 FREE     L                 /SS.TEMP[ssctr]|1                                           
 ref.cis.ss.proc.date         8 DATE     L                 /SS.TEMP[ssctr]|0                                           
 Ì     i   2
referral.main    (referral.main) 
[ref.mri.urn]
?WLR[ea]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.mri.urn                 10 FREE     L                 ea                                                          
 Ì      i   2
referral letters    (referrals) 
[ref.mri.urn, ref.subscript]
?WLR[ea]REF[eaR]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.subscript               10 FREE     L                 eaR                                                         
 abs.tape.service            10 FREE     L  MIS.ABS.TAPE                                                           
 con.action                  10 FREE     L  WL.ACTION.DICT ?WLR[ea]REF[eaR]CA|2                                    
 con.clinic                  10 FREE     L  SCH.CLIN.DICT  ?WLR[ea]REF[eaR]CA|11                                   
 con.clinic.appt.type        10 FREE     L  SCH.APP.TYP    ?WLR[ea]REF[eaR]CA|12                                   
 con.clinic.sus.date         10 DATE     L                 ?WLR[ea]REF[eaR]CA|13                                       
 con.clinic.sus.reas         10 FREE     L  SCH.SUSPEND    ?WLR[ea]REF[eaR]CA|14                                   
 con.clinic.sus.to           10 DATE     L                 ?WLR[ea]REF[eaR]CA|15                                       
 con.comment                 50 FREE     L                 ?WLR[ea]REF[eaR]CA["COM"]                                   
 con.date                     8 DATE     L                 ?WLR[ea]REF[eaR]CA|0                                        
 con.diagnosis               10 FREE     L                 ?WLR[ea]REF[eaR]CA|8                                        
 con.lab.work                 1 YN       L                 ?WLR[ea]REF[eaR]CA|6                                        
 con.letter.sent.date         8 DATE     L                 ?WLR[ea]REF[eaR]CA|10                                       
 con.priority                10 FREE     L  MIS.ADM.PRIORT ?WLR[ea]REF[eaR]CA|3                                    
 con.rad.work                 1 YN       L                 ?WLR[ea]REF[eaR]CA|5                                        
 con.reason.for.visit        50 FREE     L                 ?WLR[ea]REF[eaR]CA["RV"]                                    
 con.referral.reason         10 FREE     L  WL.REF.REASON  ?WLR[ea]REF[eaR]CA|9                                    
 con.time                     4 HHMM     L                 ?WLR[ea]REF[eaR]CA|1                                        
 con.transport               10 FREE     L  MIS.ARRIV.DICT ?WLR[ea]REF[eaR]CA|7                                    
 con.visit.type               1 CHOICE   L                 ?WLR[ea]REF[eaR]CA|4                                        
 copy                         1 PINT     R                                                                             
 date                         8 DATE     L                                                                             
 ee.setup.referral            0 FREE     L                 VAL=IF{%WL.PAT.ee.setup.referral("")}                       
 exit                         1 PINT     R                                                                             
 free                        30 FREE     L                                                                             
 free2                       30 FREE     L                                                                             
 free3                       30 FREE     L                                                                             
 int                          2 PINT     R                                                                             
 letter.type                 10 CHOICE   L                                                                             
 log.letter.date              8 FREE     L                 VAL=@ref.date                                               
 merge.from.ref.urn           5 FREE     L                                                                             
 merge.to.ref.urn             5 FREE     L                                                                             
 mri.age.tested               1 FREE     L                                                                             
 mri.bdat.tested              1 FREE     L                                                                             
 mri.conflicts                1 YN       L                                                                             
 mri.conflicts.tested        14 FREE     L                                                                             
 mri.demo.recall              8 DATE     L                 VAL=mri.demo.recall                                         
 mri.maiden.tested            1 FREE     L                                                                             
 mri.moth.first.tested        1 FREE     L                                                                             
 mri.name.tested              1 FREE     L                                                                             
 mri.oth.pat.tested           1 FREE     L                                                                             
 mri.sex.tested               1 FREE     L                                                                             
 mri.title.tested             1 FREE     L                                                                             
 mri.urn.from.ref.urns       10 FREE     L                 VAL=@WL.PAT.referral.x[WL.PAT.ref.urn]^WL.PAT.urn           
 purchaser.type               3 CHOICE   L                                                                             
 ref.adm.urn                 30 URN      L  ADM.PAT        ?WLR[ea]REF[eaR]|20                                     
 ref.cis.care.profile        10 FREE     L  MIS.ZCUS.CARE  ?WLR[ea]REF[eaR]CIS|1                                   
 ref.cis.treatment           10 FREE     L  MIS.ZCUS.TREAT ?WLR[ea]REF[eaR]CIS|0                                   
 ref.clinic.first.attend     10 PINT     R                 ?WLR[ea]REF[eaR]|22                                         
 ref.comment                 50 FREE     L                 ?WLR[ea]REF[eaR]["COM"]                                     
 ref.complete.date            8 DATE     L                 ?WLR[ea]REF[eaR]|7                                          
 ref.con.schedule.urn        10 FREE     L                 ?WLR[ea]REF[eaR]|13                                         
 ref.consultant              10 FREE     L  MIS.DOC.DICT   ?WLR[ea]REF[eaR]|4                                      
 ref.consultant.access       10 FREE     L                                                                             
 ref.current.meds            50 FREE     L                 ?WLR[ea]REF[eaR]["CM"]                                      
 ref.date                     8 DATE     L                 ?WLR[ea]REF[eaR]|1                                          
 ref.date.first.attend        8 DATE     L                 ?WLR[ea]REF[eaR]|26                                         
 ref.diagnosis               10 FREE     L                 ?WLR[ea]REF[eaR]|10                                         
 ref.expected.delivery        8 DATE     L                 ?WLR[ea]REF[eaR]|8                                          
 ref.fin.class               10 FREE     L  MIS.FIN.CLASS  ?WLR[ea]REF[eaR]|12                                     
 ref.gp                      10 FREE     L  MIS.DOC.DICT   ?WLR[ea]REF[eaR]|3                                      
 ref.gp.referral.num         10 FREE     L                 ?WLR[ea]REF[eaR]|6                                          
 ref.gps.same                 1 YN       L                 ?WLR[ea]REF[eaR]|17                                         
 ref.letter.sent.date         8 DATE     L                 ?WLR[ea]REF[eaR]|11                                         
 ref.number.attend            3 PINT     R                 ?WLR[ea]REF[eaR]|21                                         
 ref.pcg                     10 FREE     L  MIS.ZCUS.PCG   ?WLR[ea]REF[eaR]|23                                     
 ref.prefix                   2 FREE     L                 ?WLR[ea]REF[eaR]|16                                         
 ref.priority                10 FREE     L  MIS.ADM.PRIORT ?WLR[ea]REF[eaR]|25                                     
 ref.reason                  50 FREE     L                 ?WLR[ea]REF[eaR]["RS"]                                      
 ref.referral.source         10 FREE     L  WL.REF.SOURCE  ?WLR[ea]REF[eaR]|15                                     
 ref.referrer                10 FREE     L  MIS.REF.DICT   ?WLR[ea]REF[eaR]|24                                     
 ref.referrer.org            10 FREE     L  MIS.REF.ORG    ?WLR[ea]REF[eaR]|27                                     
 ref.service                 10 FREE     L  MIS.SVC.DICT   ?WLR[ea]REF[eaR]|5                                      
 ref.service.no.checks       10 FREE     L  MIS.SVC.DICT   ?WLR[ea]REF[eaR]|5                                      
 ref.short.notice             1 YN       L                 ?WLR[ea]REF[eaR]|9                                          
 ref.signon.facility         10 FREE     L                 ?WLR[ea]REF[eaR]|14                                         
 ref.spc.mat.booking.type    10 FREE     L  SPC.M.BOOK.TYPE?WLR[ea]REF[eaR]|18                                     
 ref.spc.mat.lmp              8 DATE     L                 ?WLR[ea]REF[eaR]|19                                         
 ref.status                  10 FREE     L                 ?WLR[ea]REF[eaR]|0                                          
 ref.time                     4 HHMM     L                 ?WLR[ea]REF[eaR]|2                                          
 ref.urn                     10 FREE     L                 VAL=ref.urn                                                 
 ref.urn.ctrl                10 CHOICE   L                 VAL=ref.urn.ctrl                                            
 ref.urn.ctrl.adm.check      10 CHOICE   L                 VAL=ref.urn.ctrl                                            
 ref.urn.ctrl.adm.warn       10 CHOICE   L                 VAL=ref.urn.ctrl                                            
 ref.urn.ctrl.new            10 CHOICE   L                 VAL=ref.urn.ctrl.new                                        
 ref.urn.new.con             10 FREE     L                 VAL=ref.urn                                                 
 ref.urn.new.pt              10 FREE     L                 VAL=ref.urn                                                 
 ref.urn.old.con             10 FREE     L                 VAL=ref.urn                                                 
 ref.urn.old.pt              10 FREE     L                 VAL=ref.urn                                                 
 scrn.title                  30 FREE     L                                                                             
 select                       2 PINT     R                                                                             
 select2                      2 INT      R                                                                             
 tci.date                     8 FREE     L                 VAL=@tci.date                                               
 wl.adm.accomodation         10 FREE     L  MIS.ACCOM.DICT ?WLR[ea]REF[eaR]WL|6                                    
 wl.adm.facility             10 FREE     L  MIS.FACILITY   ?WLR[ea]REF[eaR]WL|7                                    
 wl.adm.inst.from            10 FREE     L  MIS.CAN.INST   ?WLR[ea]REF[eaR]WL|5                                    
 wl.adm.location             10 FREE     L  MIS.LOCN.DICT  ?WLR[ea]REF[eaR]WL|20                                   
 wl.adm.priority             10 FREE     L  MIS.ADM.PRIORT ?WLR[ea]REF[eaR]WL|4                                    
 wl.adm.source               10 FREE     L  MIS.ADM.SOURCE ?WLR[ea]REF[eaR]WL|19                                   
 wl.anesthesia                7 CHOICE   L                 ?WLR[ea]REF[eaR]WL|25                                       
 wl.cancel.counts             0 FREE     L                 VAL=%WL.PAT.wl.calculate.amounts("CAN",urn,ref.urn)         
 wl.comment                  50 FREE     L                 ?WLR[ea]REF[eaR]WL["COM"]                                   
 wl.comment.theatre          40 FREE     L                 ?WLR[ea]REF[eaR]WL["COM3"]                                  
 wl.comment2                 50 FREE     L                 ?WLR[ea]REF[eaR]WL["COM2"]                                  
 wl.complete.date             8 DATE     L                 ?WLR[ea]REF[eaR]WL|18                                       
 wl.consultant.wl            10 FREE     L  WL.WAITLST.DICT?WLR[ea]REF[eaR]WL|30                                   
 wl.contract                 20 FREE     L  WL.CONTRACTS   ?WLR[ea]REF[eaR]WL["PUR"]|2                             
 wl.contract.appr.request     8 DATE     L                 ?WLR[ea]REF[eaR]WL["PUR"]|7                                 
 wl.contract.approval         1 YN       L                 VAL=@WL.CONTRACTS.approval.needed[@wl.contract]             
 wl.contract.approval.no     10 FREE     L                 ?WLR[ea]REF[eaR]WL["PUR"]|5                                 
 wl.contract.date             8 DATE     L                 ?WLR[ea]REF[eaR]WL["PUR"]|3                                 
 wl.contract.ecr              1 YN       L                 ?WLR[ea]REF[eaR]WL["PUR"]|4                                 
 wl.contract.final.count      6 PINT     R                 ?WLR[ea]REF[eaR]WL["PUR"]|8                                 
 wl.current.outcome          10 FREE     L  WL.OUTCOME.DICT?WLR[ea]REF[eaR]WL|10                                   
 wl.date                      8 DATE     L                 ?WLR[ea]REF[eaR]WL|1                                        
 wl.deferred.date             8 DATE     L                 ?WLR[ea]REF[eaR]WL|28                                       
 wl.diagnosis                 7 FREE     L  ABS.DIAG       ?WLR[ea]REF[eaR]WL|11                                   
 wl.est.theatre.time          3 INT      R                 ?WLR[ea]REF[eaR]WL["OPS"]|2                                 
 wl.expedite                  1 YN       L                 ?WLR[ea]REF[eaR]WL|29                                       
 wl.first.attend.date         8 DATE     L                 ?WLR[ea]REF[eaR]WL|34                                       
 wl.from.sch.counter         10 PINT     R                 ?WLR[ea]REF[eaR]WL|15                                       
 wl.initiative               10 FREE     L  WL.INITIATIVE  ?WLR[ea]REF[eaR]WL["PUR"]|9                             
 wl.lab.work                  1 YN       L                 ?WLR[ea]REF[eaR]WL|24                                       
 wl.letter.sent.date          8 DATE     L                 ?WLR[ea]REF[eaR]WL|13                                       
 wl.management.intent        10 FREE     L  WL.MANAGEMENT  ?WLR[ea]REF[eaR]WL|14                                   
 wl.old.merge.status          5 FREE     L                 ?WLR[ea]REF[eaR]WL|12                                       
 wl.old.tci.date              8 DATE     L                 ?WLR[ea]REF[eaR]WL|26                                       
 wl.old.tci.time              4 HHMM     L                 ?WLR[ea]REF[eaR]WL|27                                       
 wl.op.web.protocol          10 FREE     L  MIS.ZCUS.PROTO ?WLR[ea]REF[eaR]WL["OPS"]WEB|0                          
 wl.oper.los                  3 PINT     R                 ?WLR[ea]REF[eaR]WL["OPS"]|5                                 
 wl.oper.right.left           1 FREE     L                 ?WLR[ea]REF[eaR]WL["OPS"]|4                                 
 wl.operation                15 FREE     L  SS.OP          ?WLR[ea]REF[eaR]WL["OPS"]|0                             
 wl.operation.abbreviation   30 FREE     L                 VAL=IF{@SS.OP.abbreviation[@wl.operation];@wl.operatio      
                                                           VAL=n:30T}                                                  
 wl.operation.date            8 DATE     L                 ?WLR[ea]REF[eaR]WL|32                                       
 wl.operation.name           40 FREE     L                 VAL=IF{@SS.OP.name[@wl.operation];@wl.operation}            
 wl.operation.procedure       7 FREE     L  ABS.PROC       VAL=@SS.OP.procedure.from[@WL.PAT.wl.operation,1]       
 wl.operation.time            4 ZCUS.MIN L                 ?WLR[ea]REF[eaR]WL|33                                       
 wl.operation.weight         10 FREE     L  WL.PROC.SEVER  ?WLR[ea]REF[eaR]WL["OPS"]|1                             
 wl.procedure                10 FREE     L                 ?WLR[ea]REF[eaR]WL|16                                       
 wl.purchaser                10 FREE     L  MIS.INS.DICT   ?WLR[ea]REF[eaR]WL["PUR"]|0                             
 wl.purchaser.category       10 FREE     L  MIS.INS.GROUP  ?WLR[ea]REF[eaR]WL["PUR"]|1                             
 wl.purchaser.user           10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]WL["PUR"]|6                             
 wl.rad.work                  1 YN       L                 ?WLR[ea]REF[eaR]WL|23                                       
 wl.reason.for.visit         50 FREE     L                 ?WLR[ea]REF[eaR]WL["RV"]                                    
 wl.removal.letter.date       8 DATE     L                 ?WLR[ea]REF[eaR]WL|21                                       
 wl.removal.reason           10 FREE     L  WL.REMOVAL     ?WLR[ea]REF[eaR]WL|17                                   
 wl.review.letter.date        8 DATE     L                 ?WLR[ea]REF[eaR]WL|22                                       
 wl.ss.operation.completed    1 YN       L                 ?WLR[ea]REF[eaR]COMP|0                                      
 wl.ss.urn                   10 URN      L  SS.PAT         ?WLR[ea]REF[eaR]WL|31                                   
 wl.status                   10 FREE     L                 ?WLR[ea]REF[eaR]WL|0                                        
 wl.tci.date                  8 DATE     L                 ?WLR[ea]REF[eaR]WL|8                                        
 wl.tci.time                  4 HHMM     L                 ?WLR[ea]REF[eaR]WL|9                                        
 wl.time                      4 HHMM     L                 ?WLR[ea]REF[eaR]WL|2                                        
 wl.waiting.date              8 DATE     L                 ?WLR[ea]REF[eaR]WL|3                                        
 wl.waiting.length            4 FREE     L                 VAL=%WL.PAT.calculate.waiting.length(WL.PAT.medical.re      
                                                           VAL=cord,WL.PAT.ref.urn)                                    
 yes.no                       1 YN       L                                                                             
 yn                           1 YN       L                                                                             
 zcus.uk.wl.cancer.type      10 FREE     L  MIS.ZCUS.CANCER?WLR[ea]REF[eaR]WL["ZCUSDD"]|2                          
 zcus.uk.wl.decide.date       8 DATE     L                 ?WLR[ea]REF[eaR]WL["ZCUSDD"]|0                              
 zcus.uk.wl.suspect.cancer    1 YN       L                 ?WLR[ea]REF[eaR]WL["ZCUSDD"]|1                              
 zcus.wl.operation.site      12 FREE     L  SS.OP.SITE     ?WLR[ea]REF[eaR]WL["OPS"]ZCUS|0                         
 zcus.wl.purchaser.expdate    8 DATE     L                 ?WLR[ea]REF[eaR]WL["ZCUSPUR"]|0                             
 Ì      i   2
ref.current.outcomes    (ref.cis.current.out) 
[ref.mri.urn,ref.subscript, ref.cis.current.outcome]
?WLR[ea]REF[eaR]CIS["COUT",out]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.current.outcome     10 FREE     L  MIS.ZCUS.OUTCOMout                                                     
 Ì      i   2
ref.cis.episodes    (ref.cis.episodes) 
[ref.mri.urn,ref.subscript, ref.cis.episode]
?WLR[ea]REF[eaR]CIS["CE",rce]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.episode              3 URN      L                 rce                                                         
 ref.cis.diag.d.main         10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DD|0                       
 ref.cis.diag.d.main.date     8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DD|2                           
 ref.cis.diag.d.main.user    10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]DD|1                       
 ref.cis.diag.w.main         10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DW|0                       
 ref.cis.diag.w.main.date     8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DW|2                           
 ref.cis.diag.w.main.user    10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]DW|1                       
 ref.cis.episode.active       1 YN       L                 ?WLR[ea]REF[eaR]CIS["CE",rce]|2                             
 ref.cis.episode.con         10 FREE     L  MIS.DOC.DICT   ?WLR[ea]REF[eaR]CIS["CE",rce]|0                         
 ref.cis.episode.svc         10 FREE     L  MIS.SVC.DICT   ?WLR[ea]REF[eaR]CIS["CE",rce]|1                         
 ref.cis.final.diag.date      8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]|4                             
 ref.cis.final.diagnosis     10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]|3                         
 ref.cis.locked.date          8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]|6                             
 ref.cis.locked.user         10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]|5                         
 Ì      i   2
ref.cis.complications.history    (ref.cis.compl.hist) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.compl.h.ctr]
?WLR[ea]REF[eaR]CIS["CE",rce]CMPH[cmphc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.compl.h.ctr          3 URN      L                 cmphc                                                       
 ref.cis.compl.h.date         8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]CMPH[cmphc]|0                  
 ref.cis.compl.h.time         4 HHMM     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]CMPH[cmphc]|1                  
 ref.cis.compl.h.user        10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]CMPH[cmphc]|2              
 Ì      i   2
ref.cis.complications.hist.cmp    (ref.cis.compl.hist.comp) 
[ref.mri.urn,ref.subscript,ref.cis.episode,ref.cis.compl.h.ctr, ref.cis.compl.h.val]
?WLR[ea]REF[eaR]CIS["CE",rce]CMPH[cmphc]H[com]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.compl.h.val         10 FREE     L  MIS.ZCUS.COMPL com                                                     
 ref.cis.compl.h.act          3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]CMPH[cmphc]H[com]|0            
 Ì      i   2
ref.cis.complications    (ref.cis.complications) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.complication]
?WLR[ea]REF[eaR]CIS["CE",rce]CMP[com]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.complication        10 FREE     L  MIS.ZCUS.COMPL com                                                     
 Ì      i   2
ref.cis.diagnosis.dis.other    (ref.cis.diag.dis.other) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.diag.d.oth]
?WLR[ea]REF[eaR]CIS["CE",rce]DD[gzpr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.diag.d.oth          10 FREE     L  MIS.ZCUS.PROB  gzpr                                                    
 ref.cis.diag.d.oth.date      8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DD[gzpr]|1                     
 ref.cis.diag.d.oth.user     10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]DD[gzpr]|0                 
 Ì      i   2
ref.cis.diag.dis.main.history    (ref.cis.diag.dis.main.h) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.diag.d.main.h.ctr]
?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.diag.d.main.h.ctr    3 URN      L                 ddhc                                                        
 ref.cis.diag.d.main.h.act    3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]|4                    
 ref.cis.diag.d.main.h.dt     8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]|0                    
 ref.cis.diag.d.main.h.new   10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]|3                
 ref.cis.diag.d.main.h.old   10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]|5                
 ref.cis.diag.d.main.h.tm     4 HHMM     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]|1                    
 ref.cis.diag.d.main.h.usr   10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]|2                
 Ì      i   2
ref.cis.diag.dis.other.history    (ref.cis.diag.dis.other.h) 
[ref.mri.urn,ref.subscript,ref.cis.episode,ref.cis.diag.d.main.h.ctr, ref.cis.diag.d.oth.h.val]
?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]OTH[gzpr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.diag.d.oth.h.val    10 FREE     L  MIS.ZCUS.PROB  gzpr                                                    
 ref.cis.diag.d.oth.h.act     3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DDH[ddhc]OTH[gzpr]|0           
 Ì      i   2
ref.cis.final.diag.history    (ref.cis.diag.final.h) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.diag.final.h.ctr]
?WLR[ea]REF[eaR]CIS["CE",rce]DFH[ddhc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.diag.final.h.ctr     3 URN      L                 ddhc                                                        
 ref.cis.diag.final.h.act     3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DFH[ddhc]|4                    
 ref.cis.diag.final.h.dt      8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DFH[ddhc]|0                    
 ref.cis.diag.final.h.new    10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DFH[ddhc]|3                
 ref.cis.diag.final.h.old    10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DFH[ddhc]|5                
 ref.cis.diag.final.h.tm      4 HHMM     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DFH[ddhc]|1                    
 ref.cis.diag.final.h.usr    10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]DFH[ddhc]|2                
 Ì      i   2
ref.cis.diagnosis.working.oth    (ref.cis.diag.work.other) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.diag.w.oth]
?WLR[ea]REF[eaR]CIS["CE",rce]DW[gzpr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.diag.w.oth          10 FREE     L  MIS.ZCUS.PROB  gzpr                                                    
 ref.cis.diag.w.oth.date      8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DW[gzpr]|1                     
 ref.cis.diag.w.oth.user     10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]DW[gzpr]|0                 
 Ì      i   2
ref.cis.diag.work.main.history    (ref.cis.diag.work.main.h) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.diag.w.main.h.ctr]
?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.diag.w.main.h.ctr    3 URN      L                 dwhc                                                        
 ref.cis.diag.w.main.h.act    3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]|4                    
 ref.cis.diag.w.main.h.dt     8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]|0                    
 ref.cis.diag.w.main.h.new   10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]|3                
 ref.cis.diag.w.main.h.old   10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]|5                
 ref.cis.diag.w.main.h.tm     4 HHMM     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]|1                    
 ref.cis.diag.w.main.h.usr   10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]|2                
 Ì      i   2
ref.cis.diag.work.other.hist    (ref.cis.diag.work.other.h) 
[ref.mri.urn,ref.subscript,ref.cis.episode,ref.cis.diag.w.main.h.ctr, ref.cis.diag.w.oth.h.val]
?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]OTH[gzpr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.diag.w.oth.h.val    10 FREE     L  MIS.ZCUS.PROB  gzpr                                                    
 ref.cis.diag.w.oth.h.act     3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]DWH[dwhc]OTH[gzpr]|0           
 Ì      i   2
ref.cis.episodes.history    (ref.cis.episodes.history) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.episode.h.ctr]
?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.episode.h.ctr        3 URN      L                 rceh                                                        
 ref.cis.episode.h.date       8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|0                      
 ref.cis.episode.h.n.actv     1 YN       L                 ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|5                      
 ref.cis.episode.h.n.con     10 FREE     L  MIS.DOC.DICT   ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|3                  
 ref.cis.episode.h.n.svc     10 FREE     L  MIS.SVC.DICT   ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|4                  
 ref.cis.episode.h.o.actv     1 YN       L                 ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|8                      
 ref.cis.episode.h.o.con     10 FREE     L  MIS.DOC.DICT   ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|6                  
 ref.cis.episode.h.o.svc     10 FREE     L  MIS.SVC.DICT   ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|7                  
 ref.cis.episode.h.time       4 HHMM     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|1                      
 ref.cis.episode.h.user      10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]H[rceh]|2                  
 Ì      i   2
ref.cis.investigation    (ref.cis.invests) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.invest.ctr]
?WLR[ea]REF[eaR]CIS["CE",rce]INV[ictr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.invest.ctr           3 URN      L                 ictr                                                        
 ref.cis.invest              10 FREE     L  MIS.ZCUS.INVEST?WLR[ea]REF[eaR]CIS["CE",rce]INV[ictr]|0                
 ref.cis.invest.date          8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]INV[ictr]|2                    
 ref.cis.invest.review        1 YN       L                 ?WLR[ea]REF[eaR]CIS["CE",rce]INV[ictr]YN                    
 ref.cis.invest.urn          10 FREE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]INV[ictr]|3                    
 ref.cis.invest.user         10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]INV[ictr]|1                
 Ì      i   2
ref.cis.outcomes    (ref.cis.outcomes) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.outcome]
?WLR[ea]REF[eaR]CIS["CE",rce]OUT[out]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.outcome             10 FREE     L  MIS.ZCUS.OUTCOMout                                                     
 Ì      i   2
ref.cis.problem.main.history    (ref.cis.problem.main.hist) 
[ref.mri.urn,ref.subscript,ref.cis.episode, ref.cis.prob.main.h.ctr]
?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.prob.main.h.ctr      3 URN      L                 pmhc                                                        
 ref.cis.prob.main.h.act      3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]|4                    
 ref.cis.prob.main.h.date     8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]|0                    
 ref.cis.prob.main.h.new     10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]|3                
 ref.cis.prob.main.h.old     10 FREE     L  MIS.ZCUS.PROB  ?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]|5                
 ref.cis.prob.main.h.time     4 HHMM     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]|1                    
 ref.cis.prob.main.h.user    10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]|2                
 Ì      i   2
ref.cis.problem.other.history    (ref.cis.problem.oth.hist) 
[ref.mri.urn,ref.subscript,ref.cis.episode,ref.cis.prob.main.h.ctr, ref.cis.prob.oth.h.val]
?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]OTH[gzpr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.prob.oth.h.val      10 FREE     L  MIS.ZCUS.PROB  gzpr                                                    
 ref.cis.prob.oth.h.act       3 CHOICE   L                 ?WLR[ea]REF[eaR]CIS["CE",rce]PRH[pmhc]OTH[gzpr]|0           
 Ì      i   2
ref.cis.problems.other    (ref.cis.problems.other) 
[ref.mri.urn,ref.subscript,ref.cis.episode,ref.cis.problem.ctr, ref.cis.problem.oth]
?WLR[ea]REF[eaR]CIS["CE",rce]PRO[gzpr]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 ref.cis.problem.oth         10 FREE     L  MIS.ZCUS.PROB  gzpr                                                    
 ref.cis.problem.oth.date     8 DATE     L                 ?WLR[ea]REF[eaR]CIS["CE",rce]PRO[gzpr]|1                    
 ref.cis.problem.oth.user    10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CIS["CE",rce]PRO[gzpr]|0                
 Ì      i   2
wl.referral.clinic    (referral.clinic) 
[ref.mri.urn,ref.subscript, schedule.urn]
?WLR[ea]REF[eaR]CL[eaSU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 schedule.urn                10 FREE     L                 eaSU                                                        
 .not.in.use                  0 FREE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|20                                 
 clinic                      10 FREE     L  SCH.CLIN.DICT  ?WLR[ea]REF[eaR]CL[eaSU]|1                              
 clinic.acct.num.via.mri     15 FREE     L                 VAL=%MRI.PAT.zcus.uk.adm.urn.to.acct(urn,@clinic.adm.u      
                                                           VAL=rn)                                                     
 clinic.adm.fac              10 FREE     L  MIS.FACILITY   ?WLR[ea]REF[eaR]CL[eaSU]|8                              
 clinic.adm.urn              30 URN      L  ADM.PAT        ?WLR[ea]REF[eaR]CL[eaSU]|7                              
 clinic.appt.date             8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|3                                  
 clinic.appt.priority        10 FREE     L  MIS.ADM.PRIORT ?WLR[ea]REF[eaR]CL[eaSU]|10                             
 clinic.appt.time             4 ZCUS.MIN L                 ?WLR[ea]REF[eaR]CL[eaSU]|4                                  
 clinic.appt.type            10 FREE     L  SCH.APP.TYP    ?WLR[ea]REF[eaR]CL[eaSU]|2                              
 clinic.can.to                3 PINT     R                 ?WLR[ea]REF[eaR]CL[eaSU]|12                                 
 clinic.cancel.reason        10 FREE     L  SCH.CAN.DICT   ?WLR[ea]REF[eaR]CL[eaSU]|17                             
 clinic.client               10 FREE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|25                                 
 clinic.con.approv.req        8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]PUR|7                               
 clinic.contract             20 FREE     L  WL.CONTRACTS   ?WLR[ea]REF[eaR]CL[eaSU]PUR|2                           
 clinic.contract.approv.no   10 FREE     L                 ?WLR[ea]REF[eaR]CL[eaSU]PUR|5                               
 clinic.contract.approval     1 YN       L                 VAL=@WL.CONTRACTS.approval.needed[@clinic.contract]         
 clinic.contract.date         8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]PUR|3                               
 clinic.contract.ecr          1 YN       L                 ?WLR[ea]REF[eaR]CL[eaSU]PUR|4                               
 clinic.fin.class            10 FREE     L  MIS.FIN.CLASS  ?WLR[ea]REF[eaR]CL[eaSU]|23                             
 clinic.from.ctr              3 PINT     R                 ?WLR[ea]REF[eaR]CL[eaSU]|5                                  
 clinic.from.ctr.fu           3 PINT     R                 ?WLR[ea]REF[eaR]CL[eaSU]|16                                 
 clinic.from.date             8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|14                                 
 clinic.from.time             4 ZCUS.MIN L                 ?WLR[ea]REF[eaR]CL[eaSU]|15                                 
 clinic.fu.ctr                3 PINT     R                 ?WLR[ea]REF[eaR]CL[eaSU]|13                                 
 clinic.held.by              10 FREE     L  MIS.DOC.TYPE   ?WLR[ea]REF[eaR]CL[eaSU]|9                              
 clinic.initiative           10 FREE     L  WL.INITIATIVE  ?WLR[ea]REF[eaR]CL[eaSU]PUR|8                           
 clinic.man.pur.entry         1 YN       L                 ?WLR[ea]REF[eaR]CL[eaSU]PUR|9                               
 clinic.old.appt.date         8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|28                                 
 clinic.old.wait.date         8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|29                                 
 clinic.outcome.come         50 FREE     L                 ?WLR[ea]REF[eaR]CL[eaSU]["OCOM"]                            
 clinic.preoperative          1 YN       L                 ?WLR[ea]REF[eaR]CL[eaSU]|27                                 
 clinic.purchaser            10 FREE     L  MIS.INS.DICT   ?WLR[ea]REF[eaR]CL[eaSU]PUR|0                           
 clinic.purchaser.category   10 FREE     L  MIS.INS.GROUP  ?WLR[ea]REF[eaR]CL[eaSU]PUR|1                           
 clinic.purchaser.user       10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]CL[eaSU]PUR|6                           
 clinic.referral.reason      10 FREE     L  WL.REF.REASON  ?WLR[ea]REF[eaR]CL[eaSU]|19                             
 clinic.referral.source      10 FREE     L  WL.REF.SOURCE  ?WLR[ea]REF[eaR]CL[eaSU]|18                             
 clinic.review.letter.date    8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|24                                 
 clinic.status               10 FREE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|0                                  
 clinic.times.dna             2 PINT     R                 ?WLR[ea]REF[eaR]CL[eaSU]|22                                 
 clinic.times.rescheduled     2 PINT     R                 ?WLR[ea]REF[eaR]CL[eaSU]|11                                 
 clinic.visit.type            1 CHOICE   L                 ?WLR[ea]REF[eaR]CL[eaSU]|6                                  
 clinic.waiting.date          8 DATE     L                 ?WLR[ea]REF[eaR]CL[eaSU]|21                                 
 clinic.ward.dis              1 YN       L                 ?WLR[ea]REF[eaR]CL[eaSU]|26                                 
 Ì      i   2
referral.events    (referral.events) 
[ref.mri.urn,ref.subscript, event.date,event.seq.no]
?WLR[ea]REF[eaR]EV[revdt,rev]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 event.date                   8 DATE     L                 revdt                                                       
 event.seq.no                 2 PINT     R                 rev                                                         
 event.code                  10 FREE     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]|0                             
 event.comment               70 FREE     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]D["C"]                         
 event.description           60 FREE     L                 VAL=@WL.PARAM.event.description[@event.code]                
 event.eff.date               8 DATE     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]|1                             
 event.eff.time               4 HHMM     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]D|2                            
 event.final.outcome         10 FREE     L  WL.OUTCOME.DICT?WLR[ea]REF[eaR]EV[revdt,rev]|4                         
 event.new.val               30 FREE     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]D|3                            
 event.old.val               30 FREE     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]D|4                            
 event.qualifiers            30 FREE     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]D|5                            
 event.sch.urn               10 PINT     R                 ?WLR[ea]REF[eaR]EV[revdt,rev]|2                             
 event.tci.date               8 DATE     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]|3                             
 event.time                   4 HHMM     L                 ?WLR[ea]REF[eaR]EV[revdt,rev]D|0                            
 event.user                  10 FREE     L  MIS.USER       ?WLR[ea]REF[eaR]EV[revdt,rev]D|1                        
 Ì      i   2
wl.sch.consultant.action    (sch.con.act) 
[ref.mri.urn,ref.subscript, sch.counter]
?WLR[ea]REF[eaR]SCA[eaSU]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 sch.counter                 10 FREE     L                 eaSU                                                        
 ..not.in.use.9               0 FREE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|9                                 
 ..not.in.use.sc4             0 FREE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|4                                 
 sch.clinic                  10 FREE     L  SCH.CLIN.DICT  ?WLR[ea]REF[eaR]SCA[eaSU]|11                            
 sch.clinic.appt.type        10 FREE     L  SCH.APP.TYP    ?WLR[ea]REF[eaR]SCA[eaSU]|12                            
 sch.con.action              10 FREE     L  WL.ACTION.DICT ?WLR[ea]REF[eaR]SCA[eaSU]|2                             
 sch.con.comment             50 FREE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]["COM"]                            
 sch.con.date                 8 DATE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|0                                 
 sch.con.letter.sent.date     8 DATE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|10                                
 sch.con.time                 4 HHMM     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|1                                 
 sch.diagnosis               10 FREE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|8                                 
 sch.lab.work                 1 YN       L                 ?WLR[ea]REF[eaR]SCA[eaSU]|6                                 
 sch.priority                10 FREE     L  MIS.ADM.PRIORT ?WLR[ea]REF[eaR]SCA[eaSU]|3                             
 sch.rad.work                 1 YN       L                 ?WLR[ea]REF[eaR]SCA[eaSU]|5                                 
 sch.reason.for.visit        50 FREE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]["RV"]                             
 sch.suspend.date            10 DATE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|13                                
 sch.suspend.reason          10 FREE     L  SCH.SUSPEND    ?WLR[ea]REF[eaR]SCA[eaSU]|14                            
 sch.suspend.to              10 DATE     L                 ?WLR[ea]REF[eaR]SCA[eaSU]|15                                
 sch.transport               10 FREE     L  MIS.ARRIV.DICT ?WLR[ea]REF[eaR]SCA[eaSU]|7                             
 sch.urn                     10 FREE     L                                                                             
 Ì      i   2
web.audit.trail.data    (web.audit) 
[ref.mri.urn,ref.subscript, web.audit.counter]
?WLR[ea]REF[eaR]WEBX[wxatc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 web.audit.counter            3 PINT     R                 wxatc                                                       
 web.audit.action            12 CHOICE   L                 ?WLR[ea]REF[eaR]WEBX[wxatc]|4                               
 web.audit.date               8 DATE     L                 ?WLR[ea]REF[eaR]WEBX[wxatc]|2                               
 web.audit.for.gp            10 FREE     L  MIS.DOC.DICT   ?WLR[ea]REF[eaR]WEBX[wxatc]|1                           
 web.audit.orig.sch.urn      10 FREE     L                 ?WLR[ea]REF[eaR]WEBX[wxatc]|6                               
 web.audit.sch.urn           10 FREE     L                 ?WLR[ea]REF[eaR]WEBX[wxatc]|5                               
 web.audit.time               4 HHMM     L                 ?WLR[ea]REF[eaR]WEBX[wxatc]|3                               
 web.audit.web.user          20 FREE     L  MIS.WEB.USER   ?WLR[ea]REF[eaR]WEBX[wxatc]|0                           
 Ì      i   2
wl.tci.date.data    (wl.dates) 
[ref.mri.urn,ref.subscript, wl.date.subscript]
?WLR[ea]REF[eaR]WL["TCI",eaDS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 wl.date.subscript            8 DATE     L                 eaDS                                                        
 wl.date.acct.num.via.mri    15 FREE     L                 VAL=%MRI.PAT.zcus.uk.adm.urn.to.acct(urn,@wl.date.adm.      
                                                           VAL=urn)                                                    
 wl.date.adm.remove           1 YN       L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|13                           
 wl.date.adm.status          10 FREE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|12                           
 wl.date.adm.urn             30 URN      L  ADM.PAT        ?WLR[ea]REF[eaR]WL["TCI",eaDS]|3                        
 wl.date.admit.date           8 DATE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|15                           
 wl.date.can.ltr.date         8 DATE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|6                            
 wl.date.comment             50 FREE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|9                            
 wl.date.effective.date       8 DATE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|4                            
 wl.date.instruction         10 FREE     L  WL.TCI.INSTRUCT?WLR[ea]REF[eaR]WL["TCI",eaDS]|7                        
 wl.date.lookup               8 DATE     L                 VAL=wl.date.lookup                                          
 wl.date.old.waiting.date     8 DATE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|11                           
 wl.date.operation.date       8 DATE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|8                            
 wl.date.operation.time       4 ZCUS.MIN L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|14                           
 wl.date.outcome             10 FREE     L  WL.OUTCOME.DICT?WLR[ea]REF[eaR]WL["TCI",eaDS]|0                        
 wl.date.outcome.date         8 DATE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|1                            
 wl.date.outcome.time         4 HHMM     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|2                            
 wl.date.tci.ltr.date         8 DATE     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|5                            
 wl.date.tci.time             4 HHMM     L                 ?WLR[ea]REF[eaR]WL["TCI",eaDS]|10                           
 wl.date.urn                  8 DATE     L                 VAL=wl.date.urn                                             
 Ì      i   2
wl.operation.web.reasons    (wl.op.web.reasons) 
[wl.op.web.reason.ct]
?WLR[ea]REF[eaR]WL["OPS"]WEB["RSN",zowrC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 wl.op.web.reason.ct          2 PINT     R                 zowrC                                                       
 wl.op.web.reason            10 FREE     L                 ?WLR[ea]REF[eaR]WL["OPS"]WEB["RSN",zowrC]|0                 
 Ì      i   2
wl.op.web.comments    (wl.op.web.comments) 
[ref.mri.urn,ref.subscript, wl.op.web.comment.line]
?WLR[ea]REF[eaR]WL["OPS"]WC[wcl]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 wl.op.web.comment.line       3 URN      L                 wcl                                                         
 wl.op.web.comment.exists     0 YN       L                 VAL=IF{+@t.wl.op.web.comments[,,""] "Exist"_@Set.attr(      
                                                           VAL=@Z.color.labels1)_(" ":IF{@.gui 15;7})_@Set.attr(@      
                                                           VAL=Z.color.data1);"Do Not Exist"}                          
 wl.op.web.comment.text      50 FREE     L                 ?WLR[ea]REF[eaR]WL["OPS"]WC[wcl]                            
 wl.op.web.comment.view       1 YN       L                 ?WLR[ea]REF[eaR]WL["OPS"]WC[wcl]|1                          
 Ì      i   2
wl.operations.secondary    (wl.operations.secondary) 
[ref.mri.urn,ref.subscript, wl.operation.sec.urn]
?WLR[ea]REF[eaR]WL["OP2",op2]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 wl.operation.sec.urn         2 URN      L                 op2                                                         
 wl.operation.sec            15 FREE     L  SS.OP          ?WLR[ea]REF[eaR]WL["OP2",op2]|0                         
 wl.operation.sec.abbrev     30 FREE     L                 VAL=IF{@SS.OP.abbreviation[@wl.operation.sec];@wl.oper      
                                                           VAL=ation.sec:30T}                                          
 wl.operation.sec.name       40 FREE     L                 VAL=IF{@SS.OP.name[@wl.operation.sec];@wl.operation.se      
                                                           VAL=c}                                                      
 wl.operation.sec.rt.lft      1 FREE     L                 ?WLR[ea]REF[eaR]WL["OP2",op2]|2                             
 wl.operation.sec.weight     10 FREE     L  WL.PROC.SEVER  ?WLR[ea]REF[eaR]WL["OP2",op2]|1                         
 zcus.wl.oper.sec.site       12 FREE     L  SS.OP.SITE     ?WLR[ea]REF[eaR]WL["OP2",op2]ZCUS|0                     
 Ì      i   2
wl.suspend.dates    (wl.suspend.dates) 
[ref.mri.urn,ref.subscript, suspend.counter]
?WLR[ea]REF[eaR]WL["S",susp]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 suspend.counter              1 FREE     L                 susp                                                        
 wl.suspend.comment          30 FREE     L                 ?WLR[ea]REF[eaR]WL["S",susp]|2                              
 wl.suspend.end.date          8 DATE     L                 ?WLR[ea]REF[eaR]WL["S",susp]|1                              
 wl.suspend.start.date        8 DATE     L                 ?WLR[ea]REF[eaR]WL["S",susp]|0                              
 Ì      i   2
wl.theatre.comments    (wl.theatre.comments) 
[ref.mri.urn,ref.subscript, wl.theatre.comment.line]
?WLR[ea]REF[eaR]WL["CX",tcl]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 wl.theatre.comment.line      3 URN      L                 tcl                                                         
 wl.theatre.comment.edit      1 YN       L                 ?WLR[ea]REF[eaR]WL["CX",tcl]|1                              
 wl.theatre.comment.exists    0 YN       L                 VAL=IF{+@t.wl.theatre.comments[ref.mri.urn,ref.subscri      
                                                           VAL=pt,""] "Exist"_@Set.attr(@Z.color.labels1)_(" ":IF      
                                                           VAL={@.gui 15;7})_@Set.attr(@Z.color.data1);"Do Not Ex      
                                                           VAL=ist"}                                                   
 wl.theatre.comment.text     40 FREE     L                 ?WLR[ea]REF[eaR]WL["CX",tcl]                                
 Ì     i   2
sch.link    (sch.link) 
/.sch

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 sch.ampersand               10 FREE     L                 /.sch|2                                                     
 sch.colon                   10 FREE     L                 /.sch|3                                                     
 sch.dollar                  10 FREE     L                 /.sch|1                                                     
 sch.per.cent                10 FREE     L                 /.sch|0                                                     
 Ì     i   2
search    (search) 
/mpi

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mpi.age                      7 FREE     L                 /mpi|8                                                      
 mpi.birthdate                8 BDATE    L                 /mpi|2                                                      
 mpi.db                      12 FREE     L  MIS.APPL       /mpi|9                                                  
 mpi.death.date               8 DATE     L                 /mpi|21                                                     
 mpi.maiden.other.name       20 FREE     L                 /mpi|4                                                      
 mpi.mothers.first.name      20 FREE     L                 /mpi|3                                                      
 mpi.name                    30 NAME     L                 /mpi|0                                                      
 mpi.other.number            11 FREE     L                 /mpi|10                                                     
 mpi.pass                     1 PINT     R                 /mpi|5                                                      
 mpi.sex                      1 CHOICE   L                 /mpi|1                                                      
 mpi.title                   10 FREE     L                 /mpi|20                                                     
 mpi.unit.number             10 FREE     L                 /mpi|6                                                      
 mpi.user                    15 FREE     L                 /mpi|7                                                      
 Ì     i   2
wl.link    (wl.link) 
/.wl

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 old.ampersand               10 FREE     L                 /.wl|2                                                      
 old.asterix                 10 FREE     L                 /.wl|5                                                      
 old.colon                   10 FREE     L                 /.wl|3                                                      
 old.dollar                  10 FREE     L                 /.wl|1                                                      
 old.per.cent                10 FREE     L                 /.wl|0                                                      
 old.question.mark           10 FREE     L                 /.wl|4                                                      
 Ì     i   2
zcus.uk.reg.gp.xfer    (zcus.uk.reg.gp.xfer) 
[zcus.uk.reg.gp]
?EAZCUS.GP[ggg]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 zcus.uk.reg.gp              10 FREE     L  MIS.DOC.DICT   ggg                                                     
 zcus.uk.reg.gp.count         6 PINT     R                 ?EAZCUS.GP[ggg]|3                                           
 zcus.uk.reg.gp.date          8 DATE     L                 ?EAZCUS.GP[ggg]|2                                           
 zcus.uk.reg.gp.id           10 FREE     L                 ?EAZCUS.GP[ggg]|6                                           
 zcus.uk.reg.gp.job           4 PINT     R                 ?EAZCUS.GP[ggg]|1                                           
 zcus.uk.reg.gp.new          10 FREE     L  MIS.DOC.DICT   ?EAZCUS.GP[ggg]|4                                       
 zcus.uk.reg.gp.new.date      8 DATE     L                 ?EAZCUS.GP[ggg]|5                                           
 zcus.uk.reg.gp.status       11 FREE     L                 ?EAZCUS.GP[ggg]|0                                           
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 wl.clinic.queue.index              [clinic,ref.urn,schedule.urn]
   clinic.x                           ?WLR.CLI[scc,eaR,eaSU]

 wl.comp.ref.date.x                 [date,ref.urn] = urn
   comp.ref.date.x                    ?WLR.COMP[dt,eaR]

 to.be.consulted.index              [ref.urn]
   con.tbc.x                          ?WLR.TBCI[eaR]

 wl.consultant.index                [ref.consultant,urn,ref.urn]
   con.x                              ?WLR.CI[ggg,ea,eaR]

 daily.referral.log                 [ref.date,ref.urn] = @.user
   daily.referral.x                   ?WLR.DLI[rd,eaR]

 daily.log.removal.index            [date,ref.urn]
   daily.removal.x                    ?WLR.DLRI[dt,eaR]

 daily.log.undo.index               [date,ref.urn]
   daily.undo.x                       ?WLR.DLUI[dt,eaR]

 pat.letters.x                      [letter.type,ref.urn]
   letters.x                          ?WLFX[wllt,eaR]

 purchaser.approve.requested.x      [facility,ref.urn,purchaser.type]
   purchaser.appr.request.x           ?WLR.PARI[gqb,eaR,purt]

 purchaser.approval.index           [facility,ref.urn,purchaser.type]
   purchaser.approval.x               ?WLR.PAPI[gqb,eaR,purt]

 purchaser.assign.index             [facility,date,ref.urn,purchaser.type] = .user
   purchaser.assign.x                 ?WLR.PA[gqb,dt,eaR,purt]

 referral.merge.index               [merge.from.ref.urn,merge.to.ref.urn] = date
   ref.merge.x                        ?WLMRG[eaR,eaR]

 wl.referral.index                  [ref.urn] = urn
   referral.x                         ?WLR.RI[eaR]

 web.audit.trail.date.index         [web.audit.date,web.audit.time,ref.urn,web.audit.counter]
   web.audit.date.x                   ?WLR.WEBDX[wxdt,wxtm,eaR,wxatc]

 web.audit.trail.user.index         [web.audit.web.user,web.audit.date,web.audit.time,ref.urn,web.audit.counter]
   web.audit.user.x                   ?WLR.WEBUX[huw,wxdt,wxtm,eaR,wxatc]

 wl.consultant.wait.list.index      [wl.consultant.wl,ref.urn]
   wl.con.wl.x                        ?WLR.CWI[wwl,eaR]

 wl.con.index                       [ref.consultant,ref.urn]
   wl.con.x                           ?WLR.WCI[ggg,eaR]

 wl.daily.admit.index               [date,ref.urn]
   wl.daily.admit.x                   ?WLR.DAI[dt,eaR]

 wl.daily.cancel.index              [date,ref.urn,wl.date.subscript]
   wl.daily.cancel.x                  ?WLR.DCI[dt,eaR,eaDS]

 wl.daily.deferred.index            [date,ref.urn]
   wl.daily.deferred.x                ?WLR.WDEFI[dt,eaR]

 wl.daily.delete.index              [date,ref.urn]
   wl.daily.delete.x                  ?WLR.DDI[dt,eaR]

 wl.daily.log.index                 [date,ref.urn]
   wl.daily.log.x                     ?WLR.DWI[dt,eaR]

 wl.daily.removal.index             [date,ref.urn]
   wl.daily.removal.x                 ?WLR.DRI[dt,eaR]

 wl.daily.undo.index                [date,ref.urn]
   wl.daily.undo.x                    ?WLR.DUI[dt,eaR]

 wl.maternity.index                 [date,ref.urn]
   wl.maternity.x                     ?WLR.MAT[dt,eaR]

 wl.operations.need.tci             [urn,ref.urn] = wl.ss.urn
   wl.operations.need.tci             ?WLR.SSN[ea,eaR]

 to.be.wl.index                     [ref.urn]
   wl.tbwl.x                          ?WLR.TBWLI[eaR]

 wl.tci.adm.index                   [adm.urn] = ref.urn
   wl.tci.adm.x                       ?WLR.TAI[aa]

 wl.tci.cancel.index                [wl.date.subscript,ref.urn]
   wl.tci.cancel.x                    ?WLR.TCI[eaDS,eaR]

 wl.tci.date.index                  [wl.date.subscript,ref.consultant,ref.urn] = ref.mri.urn
   wl.tci.date.x                      ?WLR.TDI[eaDS,ggg,eaR]

 wl.tci.dna.index                   [date,ref.urn]
   wl.tci.dna.x                       ?WLR.TDAI[dt,eaR]

 wl.tci.need.index                  [ref.urn]
   wl.tci.need.x                      ?WLR.TNI[eaR]

 wl.tci.operation.index             [wl.date.operation.date,ref.urn]
   wl.tci.operation.x                 ?WLR.TOI[opD,eaR]

 zcus.purchaser.expdate.index       [facility,ref.urn,purchaser.type,zcus.wl.purchaser.expdate]
   zcus.purchaser.expdate.x           ?EAZCUS.EXPD[gqb,eaR,purt,zexp]

 reg.gp.xfer.index                  [zcus.uk.reg.gp,id]
   zcus.uk.reg.gp.xfer.x              ?EAZCUS.GPX[ggg,ea]

 reg.gp.xfer.done.index             [zcus.uk.reg.gp,date,id] = zcus.uk.reg.gp.new
   zcus.uk.reg.gp.xferdone.x          ?EAZCUS.GPXD[ggg,dt,ea]